COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PICTST"
C00004 ENDMK
C⊗;
BEGIN "PICTST"
REQUIRE "PICNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,II,JJ,X,Y; REAL XP,YP,D,S,C,XPP,YPP,DD,F;
 MAKPIX(500,500,6);
 BEGIN
 INTEGER ARRAY PIX1[1:PICSIZ];
 FOR X←1 STEP 1 UNTIL PICHIG DO
  FOR Y←1 STEP 1 UNTIL PICWID DO
   BEGIN
   XP←X-250.5; YP←Y-250.5; D←SQRT(XP↑2+YP↑2);
   DD←LOG(SIN((XP+YP+D)/40)↑2+.0000000001);
   S←SIN(DD); C←COS(DD);
   XPP←XP*C-YP*S; YPP←YP*C+XP*S;
   F←XPP/D+YPP/D; F←SIN(3*F);
   PUTEL(PIX1[1],X,Y,F*31+32);
   END;
 PUTPIX(PIX1[1],"TMP.TMP");
 END;
END;